home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / pcgames.arc / BURGER.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-18  |  770 b   |  31 lines
  1. 5  PI = 3.14159
  2. 10  CLS:KEY OFF
  3. 15  SCREEN 1
  4. 16   FOR Z = 1 TO 200
  5. 17       PSET (RND * 142+89, RND * 50+36),1
  6. 18       PSET (RND * 142+89, RND * 50+110),1
  7. 19   NEXT Z
  8. 20  CIRCLE (160,80), 80, ,-PI*2, -PI, 5/12
  9. 30  CIRCLE (160,110), 80, ,-PI, -PI*2, 5/12
  10. 40  CIRCLE (89,95),15, , PI/2, 3*PI/2,6/3 : CIRCLE (231,95),15, , 3*PI/2, PI/2,6/3
  11. 50  PAINT (160,100),2,3
  12. 60  PAINT (10,10),2,3
  13. 70  PAINT (10,10),0,3
  14. 80  FOR Z=99 TO 229 STEP 10
  15. 90   CIRCLE(Z,81),10,0,PI,2*PI,5/13
  16. 95   CIRCLE(Z,85),10,0,PI,2*PI,5/13
  17. 100  NEXT
  18. 110  LINE(90,80)-(160,110),3:LINE-(230,80),3:PAINT(123,81),3,3
  19. 120  FOR Z=99 TO 229 STEP 10
  20. 130   CIRCLE(Z,81),10,0,PI,2*PI,5/13
  21. 140   CIRCLE(Z,85),10,0,PI,2*PI,5/13
  22. 150  NEXT
  23. 160  'NEXT
  24. 1000  PLAY "T130O4MSL8CCMLL2CL4O3CP8"
  25. 1010  PLAY "T130O4MSL8CCMLL2CL4O3CP8"
  26. 1020  PLAY "O4MSL8FFL2MLFL4CO3B-L8AB-L4GF"
  27. 1030  PLAY "O4MSL8FFL2MLFL4CO3B-L8AB-L4GO4F"
  28. 1040  PLAY"P1"
  29. 1050  WIDTH 80
  30. 1060  SCREEN 0,0,0
  31.